home *** CD-ROM | disk | FTP | other *** search
/ Workbench Design / WB Collection.iso / workbench werkzeuge / wbgames / krsnake / install krsnake < prev    next >
Text File  |  1996-04-07  |  6KB  |  194 lines
  1. (message "\n\n\nKRSNAke v1.15\n\n© 1995 by Psilocybe Software\n\n"
  2.          "This program is released under the GNU General Public License. "
  3.          "See the accompanying file 'COPYING' for details.")
  4.  
  5. (message "\nWARNING:\n\nThis is a BETA release of KRSNAke; while it has proven "
  6.          "stable enough for release, it is expected that some bugs still remain. "
  7.          "If you encounter any, please notify the author at e-mail address "
  8.          "stokke@telepost.no. The author naturally takes no responsibility for "
  9.          "damage or loss of data caused by bugs in KRSNAke. That said, it isn't "
  10.          "like KRSNAke will fry your CPU or anything. This is a STABLE beta "
  11.          "release...\n\nGood luck!")
  12.  
  13. (welcome "This program is released under the GNU General Public License. "
  14.          "See the accompanying file 'COPYING' for details.\n")
  15.  
  16. (set @default-dest (tackon
  17.                         (askdir
  18.                             (prompt "Select a location for the KRSNAke directory")
  19.                             (help @askdir-help)
  20.                             (default "Work:")
  21.                         ) "KRSNAke")
  22. )
  23.  
  24. (set copy-docs (askbool (prompt "\n\n\n\n\nDo you want to install the documentation?")
  25.                         (help @askbool-help))
  26. )
  27.  
  28. (set languages (askoptions
  29.                     (prompt "Which language catalogs do you want to install?")
  30.                     (help @askoptions-help)
  31.                     (choices "kEwL"
  32.                              "Norsk"
  33.                              "Politically Correct")
  34.                     (default 0)
  35.                )
  36. )
  37.  
  38. (makedir @default-dest (infos))
  39.  
  40. (working "\n\nInstalling KRSNAke...")
  41.  
  42. (copyfiles (source "KRSNAke")
  43.            (dest @default-dest)
  44.            (infos)
  45.            (prompt "Copying KRSNAke executable...")
  46.            (help @copyfiles-help)
  47. )
  48. (copyfiles (source "KRSNAkePrefs")
  49.            (dest @default-dest)
  50.            (infos)
  51.            (prompt "Copying KRSNAke Prefs Editor...")
  52.            (help @copyfiles-help)
  53. )
  54.  
  55. (copylib (source "Libs/krsnake.library")
  56.          (dest "LIBS:")
  57.          (prompt "Copying libraries...")
  58.          (help @copylib-help)
  59. )
  60. (copylib (source "Libs/gtlayout.library")
  61.          (dest "LIBS:")
  62.          (prompt "Copying libraries...")
  63.          (help @copylib-help)
  64. )
  65. (copylib (source "Libs/player61.library")
  66.          (dest "LIBS:")
  67.          (prompt "Copying libraries...")
  68.          (help @copylib-help)
  69. )
  70. (copylib (source "Libs/protracker.library")
  71.          (dest "LIBS:")
  72.          (prompt "Copying libraries...")
  73.          (help @copylib-help)
  74. )
  75.  
  76. (makedir (tackon @default-dest "Clients"))
  77.  
  78. (copyfiles (source "Clients")
  79.            (dest (tackon @default-dest "Clients"))
  80.            (infos)
  81.            (all)
  82.            (confirm "average")
  83.            (prompt "Copying KRSNAke clients...")
  84.            (help (cat "  Action Replay\n\nThis client records your games and "
  85.                       "offers you the possibility of replaying them at any speed.\n\n"
  86.                       "  Hall Of Fame\n\nThis client provides you with a high score "
  87.                       "table.\n\n" @copyfiles-help))
  88. )
  89.  
  90. (copyfiles (source "Rexx")
  91.            (dest (tackon @default-dest "Rexx"))
  92.            (infos)
  93.            (all)
  94.            (confirm "average")
  95.            (prompt "Copying ARexx scripts...")
  96.            (help @copyfiles-help)
  97. )
  98.  
  99. (if (exists "Graphics")
  100.     (copyfiles (source "Graphics")
  101.            (dest (tackon @default-dest "Graphics"))
  102.            (infos)
  103.            (all)
  104.            (confirm "average")
  105.            (prompt "Copying graphics...")
  106.            (help @copyfiles-help)
  107.     )
  108. )
  109.  
  110. (if (exists "Sound")
  111.     (copyfiles (source "Sound")
  112.            (dest (tackon @default-dest "Sound"))
  113.            (infos)
  114.            (all)
  115.            (confirm "average")
  116.            (prompt "Copying sound samples...")
  117.            (help @copyfiles-help)
  118.     )
  119. )
  120.  
  121. (if (in languages 0) (
  122.     (if (not (exists "LOCALE:Languages/kewl.language"))
  123.         (copyfiles (source "Languages/kewl.language")
  124.                    (dest "LOCALE:Languages")
  125.                    (prompt "Copying KeW£ language file...")
  126.                    (help @copyfiles-help)
  127.         )
  128.     )
  129.     (copyfiles (source "Catalogs/kewl")
  130.                (dest "LOCALE:Catalogs/kewl")
  131.                (all)
  132.                (prompt "Copying fØcKiN KeW£ catalog...")
  133.                (help @copyfiles-help)
  134.     )
  135. ))
  136.  
  137. (if (in languages 1)
  138.     (copyfiles (source "Catalogs/norsk")
  139.                (dest "LOCALE:Catalogs/norsk")
  140.                (all)
  141.                (prompt "Copying norwegian catalog...")
  142.                (help @copyfiles-help)
  143.     )
  144. )
  145.  
  146. (if (in languages 2) (
  147.     (if (not (exists "LOCALE:Languages/pce.language"))
  148.         (copyfiles (source "Languages/pce.language")
  149.                    (dest "LOCALE:Languages")
  150.                    (prompt "Copying politically correct language file...")
  151.                    (help @copyfiles-help)
  152.         )
  153.     )
  154.     (copyfiles (source "Catalogs/pce")
  155.                (dest "LOCALE:Catalogs/pce")
  156.                (all)
  157.                (prompt "Copying politically correct catalog...")
  158.                (help @copyfiles-help)
  159.     )
  160. ))
  161.  
  162. (if copy-docs (
  163.         (makedir (tackon @default-dest "Docs"))
  164.         (copyfiles (source "Docs")
  165.                    (dest (tackon @default-dest "Docs"))
  166.                    (infos)
  167.                    (all)
  168.                    (confirm "average")
  169.                    (prompt "Copying documentation...")
  170.                    (help @copyfiles-help)
  171.         )
  172.     )
  173. )
  174.  
  175. (if (exists "Src")
  176.     (if (<> user-level "novice")
  177.         (if (askbool (prompt "\n\n\n\n\nDo you want to install the source code (in Amiga-E; Hail Wouter!) and developer information?")
  178.                      (help @askbool-help))
  179.             (
  180.                 (makedir (tackon @default-dest "Src"))
  181.                 (copyfiles (source "Src")
  182.                            (dest (tackon @default-dest "Src"))
  183.                            (infos)
  184.                            (all)
  185.                            (prompt "Copying source code...")
  186.                            (help @copyfiles-help)
  187.                 )
  188.             )
  189.         )
  190.     )
  191. )
  192.  
  193. (exit "\nRemember:\n\nBug reports go to\n\nstokke@telepost.no")
  194.